home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_1 / issue_12 / basicutils / input next >
Encoding:
Text File  |  1988-08-10  |  756 b   |  49 lines
  1.  
  2. %Ý ¤input_number(xpos,ypos,length)
  3.  3=»¤input_string(xpos,ypos,length,valid_number$)
  4. *
  5. 4,Ý ¤input_string(xpos,ypos,length,valid$)
  6. >valid$=valid$+½13+½127
  7. Hinputstring$=""
  8. Rû 0
  9. \    û 129
  10. fñ ⇩xpos,ypos)⇨(length)
  11. pòget_string
  12. zû 1
  13. ☓    û 128
  14. ‰ñ ⇩xpos,ypos)⇨(length)
  15. —ñ ⇩xpos,ypos)inputstring$
  16. ¢=inputstring$
  17. ¬
  18. ¶Ý òget_string
  19. Àñ ⇩xpos,ypos);
  20. Ê crflag=£
  21. Ôõ
  22. Þ  õ
  23. è    char$=¾
  24. ò  ý §valid$,char$)
  25. ü  char=–char$
  26.   È‰ char Ê
  27. 
  28.     É 127
  29.     ç ©inputstring$>0 …
  30. $      ï 127
  31. .%      inputstring$=Àinputstring$)
  32. 8        Ì
  33. B
  34.       ï 7
  35. L        Í
  36. V     É 13
  37. `    crflag=¹
  38. j        
  39. t     ç ©inputstring$<length …
  40. ~      ï –char$
  41. ⇦      inputstring$ += char$
  42. ‹        Ì
  43. †
  44.       ï 7
  45. ¦        Í
  46. °  Ë
  47. º ý crflag
  48. Äá
  49. ÿ